by Don Fudge 



Fontastic! 



In this column I'll describe how to 
use SUPERFONT, a hi-res char- 
acter generator that produces charac- 
ters anywhere from 15-by-15 to 180- 



by-180 in size, of any color, and in 
seven or more styles. Included with 
SUPERFONT (Listing 1) are three 
other files: CHAR (Listing 2), 



SCROLL!! (Listing 3) and RE- 
TRIEVE (Listing 4). 

The CHAR file produces a totally 
"scale- able" and rotatable vector 



Listing I. SUPERFONT. 



9 Hi MEM: 3*995 

1 GOTO 10 

2 FOR ON = 1 TO 5:PP = PEEK ( - 16336^: NEXT :CR = 0: GOTO 46 

3 ORhn 52 hT X,V:h = 52: &0T0 4 C > 

10 ONERR SOTO 63995 

11 GOSUB 12: 6OT0 25 

12 POKE 768.168: POKE 769.0: POKE 770.76: POKE 771.44: POKE 772,254: RETURN 

25 IF GT46 = 1 THEN 36 

PRINT CHRS < 4 ■> "BL000CHOR" 
POKE 232,0: POKE 233,141 
PRINT CHR$ C 4 ) ; " BLOOOSCROLL ' ! " 

H6R : POKE - 16302,0: HCOLOR= 3: R0T= 64: SCGlE= 1:6 = 1 
IF GT46 = THEN BE = 1: GOSUB 13000:BE = 
: = - 19:V = 20:0V = 20:OX = 1:HH = 3:CR = 1-.GT46 = 
HOME : IF SS = THEN DIM TF*< 26 >: FOR MW = 1 TO 25:TF*<HW> = CNR* < 

64 + NH >: NEXT :SS = 1 
GOTO 1O000 

♦6 ST = S: SC0LE= 1: XOROH 51 OT X,V:S = ST: SCOLE= S: IF CR = THEN ST = 
S: SChLE= 1: XDROH 51 hT 0X.OV:S = ST: SCPLE= S 

47 PK = PEEK « - 16384): IF PK > 127 THEN POKE - 16368.0: GOTO 49 

48 GOTO 47 

49 IF EE = 1 UNO PK < > 153 THEN 1=1: IF PK < > 144 PNO PK < > 155 THEN 

X = LiV = 120 + CS * 20>:EE = 

50 OX = X:0V = V: SCOLE= S: ROT= 64: CR = 

59 k = PK - 154: IF K < 8 THEN KK = 06S <K):K = O 

60 ON K GOTO 91. 2, 2.2, 2, 94,97, 230. 2, 240,2, 2. 3. 250.260.2.270.288.298. 308. 3 

10.320,330,340.358.360.370.380.390.480.410.420.430.2.440.2.450.2.460. 
470.488.498.588.518.528.538.548.558.568.578.588.598.680.610.628.630.6 

48,650.668.678.680.690.700.710 
IF K = THEN CR = 1: GOTO 70 

IF F = 8 hND PK = 222 THEN PK = 0: GOSUB 11088: GOTO 46 
IF PK = 221 AND F = 9 THEN F = 1:PK = 0: GOTO 46 
IF F > HND PK > 220 THEN F = 0:PK = 0: GOTO 46 

ON KK GOTO 12000.72.2.2.86.74.76.88.2.24088.13888.2.78.2.2.2.2.88.2.82 

,2.84 

GOTO 2 

ST = S: SCOLE= 1: XDROW 51 AT OX.OV: COLL 62458: CLEOR :S = 1: SCOLE= S 
:CR = l:HH = 3: HCOLOR= HH: R0T= 64 :X = 1:V = 28 
GOTO 46 

S>: IF V < 20 THEN V = 28 



63 
64 
65 
70 

71 



74 V = V - < 20 * 

75 GOTO 2880 

76 GOTO 3000 

78 X = 1:V = V ■» 

<?>: PRINT 

79 S* = CHR* < 7 



IF V 



191 THEN V = S * 28: CALL 62458: 6* = CHR$ 



20 * S 



< <M * 
$: G( 

: PRINT 6»: GOTO 2080 

S): IF X < 1 THEN X = 281 - ' 28 * S >:V = V - « 20 * S>! I c 
THEN FOR ON = 1 TO 28: PP = PEEK ( - 16336): NEXT :G* = 

•.28 * S>:X = 1 



CHR* <7>s PRINT G*:V = V 
GOTO 2088 

GOSUB 4888: GOTO 2808 
V = V ♦ < 20 * S>: IF V > 180 THEN V = 180 
GOTO 2880 



21 
82 
34 
85 

36 X = X ♦ < 20 * S>: IF X > 261 THEN X = t:V = 

EF = 1 : CR = 0: GOSUB 12888: GOTO 46 
87 CR =0: GOTO 46 
86 GOTO 5088 
91 GOSUB 988: GOTO 46 
94 GOTO 86 

97 OROH 29 AT X.V:fl = 29: GOTO 45 
238 DRfiH 35 PT X.Y:ft = 35: 60T0 45 
248 OROH 38 OT X.Y:0 = 38: GOTO 45 



V ♦ < 20 + S->: IF V > 190 THEN 
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Listing 2. CHAR. 

*8D00.95D6 

3B00- 7.4 00 6E 00 05 00 E5 08 
8008- 13 81 46 01 77 01 9C 01 
8010- CF 01 F8 01 21 02 43 92 
8D16- 74 02 91 02 CI 02 F2 02 
8020- 25 03 55 03 80 93 C6 03 
8D26- 09 04 IF 04 49 94 71 04 
8030- 01 04 02 04 F5 04 26 05 
8D36- 2D 85 35 85 4B 85 76 05 
8040- 87 85 05 85 C4 05 El 95 
8048- F7 05 06 06 14 96 5D 96 
2050- 79 86 94 06 BB 06 F2 96 
8D56- 2B 87 50 97 88 97 C4 97 
8060- E9 87 2B 98 60 98 96 98 
8D6B- BB 88 FF FF FF FF 24 24 
8078- 24 24 24 24 25 25 2D 20 
8078- 20 2D 2D 2E 2E 36 36 36 
8D80- 36 36 36 3F 24 24 24 3F 
8088- 3F 3F 3F 3F 36 36 36 3F 
8090- 08 49 41 C9 18 29 24 25 
8098- 20 2D 2D 2D 2E 36 3E 3F 
8008- 3F 3F 3F 87 99 24 24 24 
8D08- 24 24 24 24 2D 2D 2D 2D 
8080- 2D 20 2E2E 36 3E3E36 
80B8- 35 35 36 37 37 3F 3F 3F 
80C8- 3F 3F 3F 41 28 2D 20 20 
8DC8- 20 2C 3C 3C 3C 3F 3F 3F 
3000- 37 36 46 49 C9 28 20 2D 
8008- 2D 2C 2C 3C 3C 3F 3F 3F 
80E8- 3F 36 36 95 99 99 20 20 
80E8- 2D 2D 2D 2C 2C 24 3F 3E 
30F8- 3E 3F 3F 3F 27 27 24 24 
80F8- 24 2C 2C 20 2D 2D 35 35 
8E80- 20 24 27 27 3F 3F 3F 3F 
8E88- 3F 3E 3E 36 36 36 36 36 
8E10- 3535992020202020 
8E18- 2D 2C 2C 24 24 24 24 24 
8E29- 27 273F3F3F3F3F3F 
8E28- 36 3636363636364ft 
8E30- 01 20 20 20 20 25 25 24 
8E38- 24 24 3C 3C 3F 3F 3F 3F 
3E40- 3636363636092020 
8E48- 2D 20 20 20 2D 24 3F 3F 
8E58- 3F 3F 3F 3F 24 24 20 20 
8E58- 2D20 24 3F3F3F3F24 
3E60- 24 20 20 20 20 20 20 24 
8E68- 3F 3F 3F 3F 3F 3F 3F 36 
8E78- 36 36 36 36 36 36 89 20 
8E78- 24 24 24 20 20 20 20 24 
9E80- 3F 3F 3F 3F 24 24 20 20 
8E88- 20 20 2D 20 24 3F 3F 3F 
8E98- 3F3F3F3F36363636 
8E98- 3636369999202020 
8E08- 20202C2C24243F3F 
8E08- 372E203E3E3F3F3F 

Listing 2 continued. 
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shape table for all numbers and let- 
ters, and many symbols as well. 
These shapes, 52 in all, can be 
DRAW n, XRAWn, SCALEd, ROTated or 



HCOLORed in your own programs. 

Vector shapes often do not scale up 
(increase in size) cleanly. The reason 
is that most people use at least a few 



move-only commands (without plot- 
ting) in their shapes, or, with pro- 
grams like my Super Shape Draw 
and Animate, they use diagonal plot- 



Listing / continued. 



250 


DRAW 


39 


AT 


X,V:A 




39: 60T0 45 






260 


ORflW 


48 


RT 


X,V:A 




40: 60TO 45 






270 


DRfiW 


33 


RT 


X.Vsfi 




33: 60T0 45 






280 


DRAW 


28 


AT 


X,V:A 




28: GOTO 45 






290 


ORAM 


31 


AT 


X,V:A 




31: 60T0 45 






390 


ORAM 


27 


OT 


X,V:A 




27: GOTO 45 






310 


DRAW 


34 


AT 


X,V:A 




34: CR = 1: GOTO 


45 


320 


ORAM 


58 


RT 


X,V:fl 




50: CR = 1: SOTO 


45 


330 


DRAW 


41 


AT 


X,V:A 




41:CR = 1: GOTO 


45 


340 


DRAW 


42 


AT 


X»V:A 




42: CR = 1: 60T0 


45 


350 


DROW 


43 


RT 


X.V:A 




43: GOTO 45 






360 


DRAW 


44 


AT 


X,V:A 




44: GOTO 45 






370 


DRAW 


45 


RT 


X,V:A 




45: 60T0 45 






330 


DRAW 


46 


RT 


X,V:A 




46: 60T0 45 






390 


DRAW 


47 


AT 


X,V:A 




47: 60T0 45 






406 


DRAW 


48 


RT 


X,V:A 




48: 60 TO 45 






410 


DRAW 


49 


RT 


X.V:A 




49: GOTO 45 






420 


DRAW 


37 


AT 


X»V:A 




37: GOTO 45 






430 


DRAW 


36 


RT 


X,V:A 




36: GOTO 45 






440 


DRAW 


32 


AT 


X.V:A 




32: GOTO 45 






450 


DRAW 


30 


RT 


X.V:A 




30: GOTO 45 






468 


DRAW 


1 AT X,V:A = 


tsCR = 1: GOTO 


45 


470 


DRAW 


2 AT X,V:A = 




2:CR = 1: 60T0 


4< 




488 


DRflW 


3 AT X,V:A = 3: 6OT0 45 






498 


DRAW 


4 PT X,V:A = 


4:CR = 1: 60TO 


4? 


580 


DRAW 


5 AT X.V:A = 




5:CR = 1: GOTO 


45 


510 


DRAW 


6 RT X.V:A = 


6:CR = 1: 60T0 


45 


520 


DRAW 


7 AT X.V:0 = 




?: GOTO 45 






538 


DRAW 


8 AT X,V:A = 


8:CR = 1: GOTO 


45 


540 


ORAW 


9 AT X»Y:A = 




3:CR = 1: SOTO 


45 


550 


DRAW 


18 


RT 


X,V:fi 




18: GOTO 45 






560 


DRAW 


11 


AT 


X.V:A 




11. -CR = 1: GOTO 


45 


570 


DRAW 


12 


RT 


X,V:fi 




12: CR = 1: 60T0 


45 


580 


DRAW 


13 


AT 


X.V:A 




13:CR = 1: GOTO 


45 


590 


DRAW 


14 


AT 


X,V:A 




14: CR = 1: 60T0 


45 


680 


DRflW 


15 


OT 


X.V:A 




15: GOTO 45 




610 


DRAW 


16 


AT 


X.Y:A 




16: CR = 1: 60TO 


45 


620 


DRAW 


17 


RT 


X,V:A 




17: GOTO 45 




630 


DRAW 


18 


RT 


X,VsA 




18: CR = 1: 60T0 


45 


640 


DRAW 


19 


AT 


X.V:A 




19: GOTO 45 




658 


DRAW 


28 


RT 


X»Y:A 




20: GOTO 45 






660 


DRAW 


21 


AT 


X.V:A 




21: GOTO 45 






670 


DRAW 


22 


AT 


X.V:A 




22: GOTO 45 






688 


DRAW 


23 


RT 


X»V:A 




23: CR - 1: GOTO 


45 


690 


DRAW 


24 


AT 


X.V:A 




24: CR = 1: 60T0 


45 


780 


DRAW 


25 


AT 


X,Y:A 




25: GOTO 45 




710 


DRAW 


26 


AT 


X,V:A 




26: CR = 1: GOTO 


45 


880 


IF F 


> 9 THEN GOSUB 1000 




885 


X = X 


+ (20 * S>: 


IF X > 281 - < 28 * S 




V > 190 


TWEW V = 


V 


- <28 * S>:E£ 




1: 


810 


GOTO 46 











* S): IF 



960 
901 



POKE - 16383.0: POKE - 16298.0 

PRIMT " CH0OS E fi COLOR OR SCALE: " : PRINT : PRINT " FOR 
SCALE, CHOOSE 1-9 ANO MAKE SURE YOU'RE POSITIONED CORRECTLV )" : PRINT 



= UIOLET 

'L 



'6- 



= BLACK 2 



W 



'W = WHITE 2" 
- 16368,8: GOTO 906 



902 PRINT : PRINT " 'B' = BLACK l 

'U' 

= WHITE 1 

0' = ORANGE" 

903 PRINT "'U' = BLUE 

984 PE = PEEK (. - 16384 >: IF PE > 127 THEN POKE 
905 GOTO 904 

IF PE = 214 THEN HCOLOR= 2:HH = 2: GOTO 998 
IF PE = 194 THEN HCOL0R= 6:HH = 8: 60T0 990 

£ S > IZf ?5 re < 186 T¥SM S = PE - 176: SCALE= S: GOTO 990 
IF PE = 199 THEN HCOLOR= 1:HH = 1: GOTO 990 
HCOLOR= 3:HH = 3: 6OT0 990 
HCOLOR= 4:HH = 4: GOTO 990 
HCOLOR= 5:HH = 5: GOTO 990 
HCOL0R= 6:HH = 6: GOTO 990 
— HCOLOR= 7:HH = 7: GOTO 990 
FOR OH = 1 TO 28s PP = PEEK < - 16336): NEXT 

•loVs00 16336>t ^ 8 f0R m ' 1 T0 2e,PP 

POKE - 16304.0: POKE - 16297.0: HOME :XC = 

1800 ON F GOTO 1001.1003.1004,1805.1010,1015.1020 

1801 TX = X:TV = V:X = 0:V = 0: FOR X = TXTOTX + <S*-<S*(S - 1)>): FOR 
:X = = T TxIv ^Tv/hETuS * <& " %>>> " 1' DRAW A AT X,V: NEXT : NEXT 

1803 'DRAW A*AT X,vi DRAW A AT X ♦ 2,V - 2: RETURN 



S86 
910 
915 
928 
930 
940 
950 
960 
970 
980 



=»90 



IF PE » 215 THEN 
IF PE = 204 THEN 
IF PE = 207 THEN 
IF PE = 213 THEN 
IF PE = 200 THEN 



FOR OH = 1 1 _ 
PEEK < - 16336): NEXT 

FRE (8): RETURN 



Listing 2 con 


Hnued. 












8EB8- 


27 


27 


24 


24 


24 


2C 


2C 


20 


8EB8- 


2D 


2D 


35 


35 


20 


24 


27 


27 


8EC8- 


3F 


ir 


3F 


3F 


3F 


3E 


3E 


36 


8EC8- 


36 


36 


36 


Jo 


O J 


oD 


•ya 


on 


8ED8- 


24 


24 


24 


">n 

i_L) 




20 


20 


20 


8ED8- 


36 


36 


36 


ori 

C.U 


c4 


24 


24 


24 


8EE8- 


24 


24 


24 


3F 


36 


36 


36 


3F 


8EE8- 


3F 


3F 


3F 


3F 


24 


24 


24 


3F 


8EF8- 


36 


36 


36 


JO 


"7C 
JO 


Jb 


ob 


80 


8EF8- 


20 


20 


20 


2D 


2D 


2D 


2D 


24 


8F00- 


3F 


3F 


3F 




OA 


OA 
til 


24 


24 


8F88- 


2D 


2D 


2D 


CH 


"7 rr 

or 


"7T 

or 


~2Z 

or 


"7C 

Or 


9F10- 


3F 


3F 


3F 


"7C 

JD 




20 


20 


36 


8F18- 


36 


36 


36 


.3b 


■Sr 


3F 


3F 


36 


8F20- 


80 


09 


20 


slU 


OTt 


on 


2D 


2C 


8F28- 


2C 


24 


24 




OA 


24 


24 


3F 


8F30- 


36 


36 


36 


ob 


ob 


oc 


oe 


3F 


8F38— 


3F 


3F 


27 


Cf 


OA 


^r 


3b 


36 


8F48— 


35 


35 


00 


2D 


OA. 


OA 


or 


2E 


8F48- 


35 


2D 


2E 


Jj 


on 


tt 


on 
cu 


OA 

ci 


3F58— 


3F 


3C 


27 


or 


~2T 

ot 


07 


Jr 


OA 

ct 


8F58- 


2D 


2C 


25 




or 

ex. 


C-> 


2D 


24 


8F60- 


3F 


37 


3F 


oc 


T7 


or 




37 


8F68- 


27 


24 


24 


or 


ob 


36 


36 


36 


8F70— 


36 


36 


36 


88 


2D 


cu 


on 
rl ) 


20 


8F78- 


2D 


2D 


2D 




-Tr- 
or 


or 


"2rr 
or 


3F 


8F88— 


3F 


3F 


24 


24 


24 


OA 


OA 
C** 


24 


8F88- 


3F 


36 


36 


36 


ob 


Ob 


ob 


Jo 


8F90- 


00 


20 


24 


24 




OA 
C*r 


OA 




8F98- 


35 


35 


35 


2D 


or 


or 


or 

Cl- 


2C 


8FA0 


36 


36 


36 


■x 
ob 


ob 


on 

CXJ 


OA 
C'* 


OA 


8FA8- 


2 4 


24 


24 


?4 
t*t 


OA 


-jr 
or 


ot 


"7C 

oc 


rrr- rm 
arrHj— 


3E 


3E 


3E 


27 


27 


27 


07 
Cf 


o~? 

Cf 


or Bo 


3r 


3b 


36 


36 


36 


36 


It-. 
ob 


ob 




88 


2D 


24 


24 


24 


24 


OA. 
C*r 


oo 


Drrn 

orLo- 


Sz> 


35 


35 


35 


35 


35 


35 


"7C 
OO 


Qcno_ 


Sj 


20 


24 


24 


24 


24 


24 


OA 
C^ 


8FD8— 


24 


3F 


36 


36 


36 


ob 


ob 


07 
CI 


OrtlT^ 


C.I 


27 


27 


27 


27 


27 


27 


0"7 
Cr 


Or to 


if 


3F 


36 


36 


36 


36 


ob 


Ob 


8FF8— 


Ob 


98 


09 


20 


2D 


20 


cu 


cu 


8FF8- 


2C 






24 


24 


24 


24 


77 
Cf 


9000- 


27 


3F 


Or 


3F 


3F 


3F 


oc. 


ot 

AC, 


9088- 


36 


36 


36 


36 


36 


35 


"7S 
OD 


9010- 


20 


2D 


20 


20 


2C 


24 


24 


24 


9018- 


24 


27 


3F 


3F 


3F 


3F 


3E 


36 


9020- 


36 


36 


36 


35 


88 


20 


24 


24 


9028- 


24 


2C 


2D 


20 


2D 


2D 


25 


25 


9030- 


25 


24 


27 


27 


3F 


3F 


3F 


3F 


9038- 


3F 


3F 


36 


36 


36 


36 


36 


36 


9040- 


36 


08 


48 


48 


C9 


C8 


28 


20 


9048- 


20 


2D 


2D 


2C 


3C 


3C 


3F 


3F 


fvicn 

SwB- 


3F 


3F 


36 


86 


08 


89 


20 


2D 


9058- 


2D 


2D 


2C 


2E 


2D 


3C 


2C 


24 


9068- 


24 


24 


24 


24 


27 


27 


3F 


3F 


9068- 


3F 


3F 


3F 


7F 
oc 


"Tr- 
ot 


ob 


36 


38 


9070- 


36 


36 


35 


35 


40 


20 


2D 


2D 


9878- 


3C 


24 


2D 


2E 


2£ 


24 


24 


24 


9080- 


24 


27 


3F 


3F 


3F 


3F 


3E 


36 


9888- 


36 


36 


36 


35 


88 


2D 


24 


24 


9090- 


24 


2C 


20 


20 


20 


35 


36 


36 


9098- 


36 


20 


24 


24 


24 


24 


25 


25 


3QQQ 


24 


87 


3C 


3C 


3F 


3F 


3F 


3F 


98ft8- 


3F 


37 


36 


36 


36 


36 


36 


36 


9060- 


9E 


40 


41 


C0 


C8 


18 


98 


20 


90B8- 


20 


2D 


2D 


85 


2C 


3C 


3C 


3F 


90C0— 


3F 


3F 


3F 


36 


96 


88 


09 


20 


90C8- 


20 


20 


2D 


2D 


2C 


2C 


24 


24 


9000- 


27 


27 


3F 


3F 


3F 


3F 


27 


27 


9008- 


2C 


2C 


20 


20 


2D 


35 


35 


20 


90E0- 


24 


27 


27 


3F 


3F 


3F 


3F 


3F 


90E8- 


3E 


3E 


36 


36 


35 


35 


2D 


20 


98F0- 


20 


2D 


35 


35 


3E 


3E 


3F 


3F 


90F8- 


3F 


27 


27 


3F 


36 


35 


35 


00 


9100- 


49 


49 


20 


24 


24 


24 


24 


24 


9188- 


24 


2D 


20 


2D 


24 


3F 


3F 


3F 


9118- 


3F 


3F 


3F 


3F 


36 


2D 


2D 


20 


9118- 


36 


36 


36 


36 


36 


36 


68 


89 


9120- 


20 


20 


2D 


20 


2D 


2C 


2C 


24 










J 




ng 
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ting. Now, diagonal plotting is a 
great asset to a drawing program, as 
are move-only moves, but both are 
no-no's if you're going to be scaling 
up. So the CHAR characters were 
created (by Mary Carol Smith, presi- 
dent of Avant-Garde) with the plot- 
ter remaining on. Use CALL - 151 be- 
fore typing in CHAR and A$8D00, 
L$M)0 as the BSAVE information. 

The SCROLL!! routine moves ev- 
erything on the hi res screen up 64 hi- 
res lines once the screen fills with 
characters. Thus you can type forev- 
er without running out of space. 
Once again, use CALL - 151 before 
typing SCROLL!! in and A2048, L176 
to BSAVE. 

RETRIEVE allows you to re- 
create SUPERFONT compositions 
that have been saved as text files. 

Before I discuss the SUPERFONT 
listing, I mast mention one vital piece 
of information about making SUPER- 
FONT and/or RETRIEVE work: Be- 
fore you can use either program you 
must do the following, POKEs: 

POKE 104,96: POKE 24576,0 

It doesn't matter if the POKEs are in 
the Hello program that runs when 
the disk boots (after which RUN SU 



Luting I continued. 



1015 

1580 
1510 

1528 



1004 I = 0: FOR Q = 1 TO 5: DRRM BT X + 2,V - Z: Z = Z ♦ 1 : NEXT : RETURN 

1005 DRAH A PIT X.V: DRHH ft ftT X * 2,V - 2: DRftW ft ftT X ♦ 4,V - 4: RETURN 
1010 TX = X:TV = V:X = 0:V = 0: FOR X = TX TO TX * ( S «■ 1 ): FOR V = TV TO 

Tv _ ( S 4 1) STEP - 1: ORHN ft ftT X.V: NEXT : NEXT :X = TX:V = TV: RETURN 
DRAW p QT X.V: DRRN ft ftT X + 1 ,V: DRAW R RT X ♦ 2.V: RETURN 
DRPW p pT X.V: DRPW ft ftT X + 1 ,V - 1: DRftW ft ftT X + 2.V - 2: RETURN 
POKE 103,1: POKE 104,8: POKE 2048,0 
HI HEM: 38488 

PRINT CHR$ < 4 ); "RUNHftIL ING LftBEL & FILING SVSTEH" 
2080 ST = S: SCfiLE= 1: XDRftW 51 RT OX.OVrS = ST: SCALE= S 
2010 GOTO 46 

3800 CLEAR :S - I: SCALE= S:HM = 3: HCOLOR= HH: R0T= 64:X = 1:V = 20:CR = 
1: DIH A(127>,B< 127 >,SC< 127 >,CL< 127 >.SH< 127 >.F< 127 ;:SU = 1: CftLL 6245 
0: GOTO 46 

♦000 SU = 0: 60SUB 10016: RETURN 

5000 0* = CHR$ ( 4 ) 

5010 PRINT D*"RUNRETRIEUE" 

=1000 HOME : TEXT : UTAB 1: PRINT "NOW TVPE THE CTRL CHARACTERS < OR WHPT- 
EUER) THAT DUMP THE HI -RES SCREEN ONTO VOUR PRINTER. IF VOUR PRINTE 

R DOESN'T DOTHIS THEN DON'T HIT CTRL P IN THIS PROG.": PRINT 
9010 PRINT "HAKE SURE VOU HIT RETURN ONCE VOU RE DONE TVPIN6 ALL THE C 

TRL CHARACTERS: ": PRINT : AS = 
5*015 PRINT "IF VOU'UE NO PRINTER PITH HI-RES CAPACI-TV HIT RETURN NOW. ": PRINT 
9020 A3 = ft9 ♦ 1: GET CR*(A9>: IF ASC cCR$<A9,-' < > 13 THEN 9820 
9830 PRINT CHRS <13>: POKE - 16304.0: POKE - 16297,0: RETURN 
10000 IF SU = 1 AND <PK < 219 AND PK > 168) THEN N = N + 1: GOTO 18010 
10081 GOTO 880 

18010 CK N ) = X:B(N) = V:SC(N) = S:CL(N) = HH: SH< N ) = A:F(N) = F 
10015 IF N = 126 THEN N = 0:NB = 126: GOTO 10025 

IF SU = 8 THEN NB = N: POKE - 16303,8: POKE - 16298.0: GOTO 10825 

GOTO 600 

POKE - 16303,0: POKE - 16298.0 

HOME : UTAB 1: INPUT "HHICH DO VOU HANT 7 ( A-V ): " >PN* 
IF ASC <AN$) < 65 OR ASC (AN*) > 89 THEN 10830 

18032 NN = ASC <. AN$ ; - 64 

18034 IF SS = THEN DIH TF*<26): FOR HH = 1 TO 25:1T*<MM> = CHRS (64 ♦ 
HH >: NEXT :SS = 1 

18038 0$ = CHR* (4;: CALL 1002: FLASH : 
SE SWITCH NOW TO VOUR OWN I NIT I PL- 
OW: NORMAL : GOSUB 63088 



10016 

10020 

10025 
18838 
10031 



HOME : TEXT : UTAB is PRINT "PLEA 
IZED DISK TO STORE VOUR CREATION 



IF NN < 1 OR NN > 25 THEN 808 
PRINT D*"OPEN"iTF*<NN) 
PRINT D*" DELETE" #TF$(NN > 
PRINT DS'OPEN" iTF$< NN ) 
PRINT WMRITE" ilFSK NN ) 
PRINT NB 

FOR QW - 1 TO NB 
PRINT A< OH ): PRINT B<QM>: 

PRINT F«JH>: NEXT 
18080 PRINT D* "CLOSE " 
HOME 

FLASH : PRINT "PLEASE SWITCH BACK TO THE PROGRAM DISK 

GOSUB 63800 
16304,0: POKE - 16297,0 

/TAB 1: PRINT "PLEASE SHITCH BACK TO THE PROGRAM DISK NOW" 
GOSUB 63088 



18839 
18848 
18843 
18846 
18858 
18855 
18868 
18878 



18882 
18083 



18085 
10088 



PRINT SCCQH): PRINT CL(QW): PRINT SHCQM): 



10890 

1 1000 

11010 

11020 



UTAB 10: 
: NORMAL : 
POKE - 1 
FLASH : 
NORMAL : 
60T0 805 

HOME : POKE - 16303,8: POKE - 16298.8 
PRINT "HHICH STVLE 00 VOU WANT 7 " : PRINT 
PRINT "(1-7):" 



NOW 



Listing I continued. 



Circle 31 on Reader Service card 



Circle 356 on Reader Service card. 



Circle 102 on Reader Service card 



wabash 

When it comes to 
Flexible Disks, nobody 
does it better than 
Wabash. 

MasterCard. Visa Accepted. 
Call Free. (800)235-4137 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo CA 
93401 (InCal ca 
(805) 543-1037 
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DISKETTES 




MLuA BYTE INC) 



30BH7 1 1 30 
MOW QPIN SAT 

i qioq to jioa unr 
1 BOO 327 1 01 3 

"SK'UH >HK(.A'H,ili;,ii[ 



RIBBONS 
EPSON ■ um a - 

Cartr-ldflaa Mm 
C. ITOH 7.™ 
Cartrldgaa"' ' Mln 

DIABLO a.— 
CartrldBH Mln 3 



LOOK at these prices! 

HAYES Smartmodem 300-S209; 1200-S499 

HAYES Micromodem II 265 

VIDEX Ultraterm 339 

VIOEX 80 Col Card Videoterm . 
AMDEK Color 1 13" . . 

SATURN 128K Card 

SATURN Accelerator II . . 
MICROSOFT Multiplan . . 
ORANGE MICRO Grapples 
INTERACTIVE Pkaso Card 

EASTSIDE Wildcard Copy Device 

RH Super Fan 1 1 $70 .... w/ZenerRay . 

A.LS. Z80Card 155 

A I S CP/M • Z80 Card 279 

MAXELL Diskettes MD 1 (100 s) 270 

MAXELL Diskettes MD 2 (100'st 380 

Payment Money Order. Cashiers Check Book LUi* 
Personal Checks — Allow 2 weeks dear once COOS 
Cosh Certified Checks only. N V fles Add 8 '*% ST 
Add $4 00 Shipping Charge on all orders 

75-20 183rd St . flushina NV 11366 
6i-?rj 



Call or 



,812) 




Fudge It!- 



Listing 1 continued. 

11039 F = PEEK ( - 16384): IF F > 176 AHO F < 184 THEN F = F - 176: POKE 
- 16368,0: 60T0 11106 

11040 GOTO 11030 

11100 POKE - 16304.0: POKE - 16297,0 
11200 RETURN 

12000 ST = S: SCALE= 1: XDRAH 51 AT 0X,0V:S = ST: SCQLE= S 
12002 GOSUB 12: CALL 2046 

12072 EE = 

12073 IF EF = 1 AND CR < > 1 THEN EF = 0:ST = S: SCOLE= 1: XDROH 51 OT 
X,OV:S = ST: SCOLE= S:X = 1: 60SU6 39000: 60TD 46 

12074 X = l! GOSUB 39000: IF V > 180 THEN V = 180 

12075 GOTO 46 

13000 POKE - 16383,0: POKE - 16298,0 

13018 HOME : UTA6 1: PRINT "HERE ORE THE COHHANDS: " : PRINT 

13020 PRINT "CTRL D HOUES VOU DOHN CTRL T MOUES VOIJ UP 

> TOHORDS TOP > CTRL X ERASES t RESTARTS- VOU CTRL V SC 

ROLLS SCREEN BV 3 LINES CTRL S STARTS SAUIN6 VOUR CREATION " 

13030 PRINT "(AUTOHOTIC SAVE IF VOU FILL SCREEN • CTRL F SAUES VOUR CR 

EATION (FINISHED) CTRL R RETRIEVES A SAVED CREATION": FLASH : PRINT 

"CTRL LETS VOU SEE THE COHHAND OPTIONS" : NORMAL 
13040 PRINT ■<— > AND < — AND 'SPACE' HORK OS ON A TVPEHRITFR. & SO D 

OES 'RETURN' HHICH IS C0RRI06E RETURN >" 

13050 PRINT "ESC LETS VOU CHANGE COLOR OR SCALE REPT LETS VOU REPEAT 

SHIFT H GIUES STVLE #1 LETTERS SHIFT N L 

ETS VOU CHOOSE LETTER STVLE" 

13051 PRINT "2ND HIT OF SHIFT H OR N MEANS BACK TO REGULAR LETTERS A6 



A In" 

1 -.052 PRINT "CTRL P MEONS PRINT OUT HI -RES SCREEN ON 

13055 PRINT 

13060 PW = PEEK < - 16384): IF PH > 127 AND PH < > 155 THEN 

66,8: GOTO 13889 
13865 IF PH = 155 THEN 13075 
GOTO 13060 

104,8: POKE 2048.0 



a PRINTER- 



POKE - 163 



RUNHELLO" 

POKE - 16297,0: HOME 



13078 

13075 POKE 103.1: POKE 

13080 HI MEM: 3846U 

1 3082 COLL 1002 

13085 PRINT CHR$ < 4 >i 

.3999 POKE - 16304,0: 

14068 GOTO 2000 

24000 D$ = CHP» « 4 i 

24002 POKE - 16303.0: 

24005 GOSUB 9000: IF 0SC<CR*<1>) 

24010 PRINT D$"PR#1" 

24020 FOR H9 = 1 TO 09: PRINT CR«H9>; 

24025 PRINT O*"PR«0" 

24030 GOTO 2000 

59000 IF V < < S * 20) THEN V = S * 20: 

39002 UN S GOTO 39010.38020 

39005 RETURN 

33010 V = OV - 40: GOTO 39050 



IF BE = 1 THEN RETURN 



POKE - 16298.0 

13 THEN 2000 

NEXT 



RETURN 



39026 
39650 
39060 
63000 



V = OV - 
IF V ' i 
RETURN 
PRINT : 



26 

S + 20) THEN V = S * 20 



PRINT "(HIT ANV KEV TO CONTINUE):": PRINT 
63010 PP - PEEK < - 16384 >: IF PP > 127 THEN POKE - 16368,6: RETURN 
63020 GOTO 63010 

63995 OP = PEEK (222): POKE 216.6 

63999 G$ = CHR$ (7): PRINT GS: PRINT G*: GOTO 2000 



PERFONT occurs immediately), or if 
you do them in immediate mode be- 
fore running SUPERFONT, also in 
immediate mode. But if you try to in- 
stall the POKES in SUPERFONT, it 
won't work. 

SUPERFONT 

In a nutshell, SUPERFONT dis- 
plays typed-in text on the screen in a 
large hi-res format. Many sizes, styles 
and colors are possible. You can 
save your compositions and, if RE- 
TRIEVE is on the disk, you can sum- 
mon them back as well. The instruc- 
tions for using SUPERFONT are 
right in the program and appear as 
soon as it starts running. Any time 
you forget the commands, use con- 
trol-O to view them again. 

Control-P directs your printer to 
turn out hi-res pictures. Here's how: 
If you have an Axiom or Silentype, or 
any other printer that requires only a 
couple of control characters to pro- 
duce hi-res pictures, then, after typ- 
ing control-P, enter the appropriate 
printer-activating codes. If non-in- 
puttable characters are needed, stick 
them into line 24020 of SUPER- 
FONT. When using a slot other than 



Listing 2 continued. 

9128- 24 24 24 24 24 3F 36 36 
9130- 3636 36 3E3E3F3F3F 
9138- 27 27 24 24 24 24 24 3F 
9140- 36 36 36 36 36 36 35 35 
9148- 00 49 49 20 24 25 2C 24 
9150- 25 2C 24 25 2C 24 3F 3E 
9158- 36 3? 3E 36 37 3E 27 3C 
9160- 24 27 3C 24 27 3F 36 35 
9168- 2E36352E36352E36 
9170- 60 20 2C 2C 2C 2C 2C 35 
9178- 35 35 35 35 2D 24 24 24 
9180- 24 24 24 24 3F 36 36 36 
9188- 36 36 27 27 27 27 3F 3E 
9190- 3E 3E 3E 24 24 24 24 24 
9198- 3F 36 36 36 36 36 36 36 
91A0- 802O2C2C2C2C2C35 
91A6- 35 35 35 35 2D 24 27 27 
91B6- 27 27 27 2C 2C 2C 2C 2C 
91B8- 24 3F 3E 3E 3E 3E 3E 27 
91C0- 27 27 27 27 3F 36 35 35 
91C8- 3535353E3E3E3E3E 
9108- 36 00 49 49 20 24 24 24 
91D8- 24 2525252525253F 
91E0- 37 37 37 37 3F3C3C3C 
91E8- 3C 3F 2E 2E 2E 2E 2E 2E 
91F0- 3636363680 24 2525 
91F8- 2525252525252525 
9208- 3F 3F 3F 3F 3F 24 2D 20 
9208- 20 2D 2D 2D 2D 36 37 37 
9210- 3737373737373737 
9218- 20 2D 2D 20 20 36 3F 3F 
9220- 3F 3F 3F 3F 3F 00 49 49 
9228- 2D 24 3F 36 00 49 49 2E 
9230- 2C 24 3F 36 00 49 49 2D 
9238- 24 3F F6 40 18 08 2D 24 
9240- 24 24 24 24 3F 36 36 36 



9246- 
9258- 



9260- 
9268- 
9270- 
9278- 
9280- 
9288- 
9290- 
9298- 
92O0- 
9206- 
9280- 
92B8- 
92C0- 
92C8- 
9200- 
92D8- 
92E0- 
92E8- 
92F0- 
92F8- 
3300- 
9388- 
9310- 
9318- 
9320- 
9328- 
9330- 
9338- 
9340- 
9348- 
9350- 
9358- 
9360- 



36 36 00 
F6 40 18 
25 25 25 
3F 3F 3F 
2C 2C 2D 
3F 3F 37 
46 01 2D 
3F 3F 3F 
40 2D 2D 
3F 3F 3F 
2D 20 20 
3F 3F 3F 
24 24 24 
3F 3F 24 
36 3F 3F 
36 36 36 
2C 2C 2C 
2C 24 3F 
3E 3E 3E 
00 40 40 

24 24 3F 

25 24 3C 
49 2E 2C 
08 20 24 
20 24 3F 

24 3F 36 
2E 25 20 
3C 27 24 
27 3F 3C 
3E 3E 36 
27 27 3F 
40 20 24 

25 25 27 
24 3C 37 
3C 3E 2E 
20 24 3F 



49 49 
08 20 
24 3C 
3E 3E 
2D 2D 
36 36 
2D 2D 
3F 3F 
2D 2D 
3F F6 
2D 20 
36 00 
2D 20 
24 24 
3F 36 
00 20 
2C 2C 
3E 3E 
3E 3E 
40 40 

36 36 

37 36 
24 3F 
3F 36 
F6 40 
00 49 
2C 2C 

35 35 
37 3F 
2E 2E 

36 35 
3C 37 

37 F6 
36 2D 
2E 00 
24 27 



2D 24 3F 
24 2C 20 
3C 3F 3F 
36 2E 25 

35 35 37 
00 40 C0 
2D 2D 24 

36 00 40 
2D 24 3F 
40 18 08 
24 3F 3F 
49 49 20 
2D 24 3F 
3F 36 36 
20 2D 20 
2C 2C 2C 
2C 2C 2C 
3E 3E 3E 
3E 3E 36 
18 08 20 
4A 09 28 
06 00 49 
F6 40 C0 
00 49 49 
C0 40 20 
29 25 20 
24 3C 3C 
20 24 27 
3C 37 3F 
2E 35 36 
35 20 46 
76 4« 08 
C0 40 18 
DO C3 24 
49 49 29 
3C 24 25 



9368- 
9370- 
9378- 
9380- 
9388- 
9390- 
9398- 
9300- 
9308- 
9388- 
9388- 
93C0- 
93C8- 
93D0- 
9308- 
93E0- 
93E8- 
93F0- 
93F8- 
aanp 

9408- 
9410- 
9418- 
9420- 
9428- 
9430- 
9438- 

9448- 
9450- 
9458- 
9460- 
9468- 
9470- 
9478- 



2C 24 
36 37 
00 49 
24 24 
2E 35 
3E 37 
20 2D 
24 24 
3E 3E 
2C 2C 
3F 36 
20 20 
27 25 
2C 24 
3F 3F 
2C 20 
3F 3F 

36 80 
2C 2C 
24 27 
3E 3E 
2D 35 

37 2E 
3E 3F 
35 35 
24 24 
24 3F 
24 24 
20 20 
09 20 
24 24 
3F 27 
20 24 
3F 36 
20 20 



20 24 
36 2E 
29 20 
27 3C 
2E 36 
06 08 
2D 24 
24 24 
3E 3E 

36 36 
00 20 

24 3F 

25 25 
24 27 
3E 3E 
2D 20 

37 37 
09 20 
24 3C 
27 3F 
36 2D 

35 37 
2D 20 
3F 3F 
00 49 
2C 20 

36 36 
3C 37 
2D 35 
20 20 
3C 3C 
24 20 
3F 3F 
36 36 
2£ 36 



3F 37 37 3E 
36 35 2E 06 
2C 24 25 2C 
24 27 3F 37 

35 3E 36 37 
20 20 20 20 
3F 3F 3F 24 
24 3F 3E 3E 

36 20 2C 2C 
36 36 3F 3F 
2D 20 20 20 
3F 3F 3F 3F 
20 20 20 2C 
27 3F 3F 3F 

36 2E 25 2C 

35 35 3E 3E 

37 37 37 37 
20 20 20 20 
3C 24 25 25 
3F 3F 3F 3F 
2C 2C 20 20 
37 3F 3F 3F 
20 2E 2E 3E 
27 27 3F 36 
49 49 20 24 
24 3F 27 24 
3E 3F 3F 3F 

36 36 36 20 
36 36 36 

20 20 2C 2C 
3C 3F 3F 3F 
20 20 20 20 
3F 3F 3F 3F 
2E 20 20 20 
3E 3E 3F 3F 



/ isfiiig 2 eoriftiiu«f. 
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Listing 2 continued. 












9480- 


fj: 


27 


27 




?G 


T5 


00 




9488- 




?[i 


ZD 


?D 


2Q 


2[i 


2C 


2C 


9490- 


>4 


,>4 


27 


27 




^p 


7,p 


3F 




H 




OA 


24 


2J 


2C 


,'[1 


2fji 


94A0- 


.'U 


2D 






JC 


3C 


?p 


3F 


94A8- 


~TC 

jr 


or 


3F 






^f> 


If. 


36 


9400- 




?8 


35 






->n 




tlJ 


9468- 


2D 


2C 


Z4 


Z 7 


^p 


Jf- 


jp 


3£ 


34C8— 


^ 


37 


tc: 

JJ 


00 


49 




?U 
cxi 


Of 


94C8— 




?*i 


2C 


24 




2C 


24 


25 


9400- 


2g 


3C 


5f 






7C 
> r 


7t: 

>r 


or 


Q4DR- 


-77 

Of 






on 

«r LI 






7C 

iD 


7F 
ot 




.»o 


Of 


oc 


J" 


Of 




>D 




•WD 


n-i 


wn 
'i i 


?n 

cU 


2D 


?ri 


2D 


2f 


2C 


94F0- 


?4 


3C 




24 


25 


25 




27 


94F8- 


2 p 


7^ 




<p 


jp 


ip 




TP 

Ot 


9508— 


36 


2£ 


2P 


56 


37 


37 


7C 


7^ 


9508- 


^, 


4H 




20 


2D 


2D 


2C 


3C 


9510- 




3C 




3P 


37 


37 




75 


1 1 ! O 


dQ 




1 Q 




20 


20 


20 


2C 




ct 


oU 


TP 


3P 


3P 


jpr 


37 


37 


9528- 


35 


ME 

> 1 


rwn 


29 


20 


2fl 


Of, 

til 


Ofl 

rl ' 


9530— 


20 


c\. 


cL. 


w *♦ 


£*+ 


if* 






9538- 


?7 
t r 


11 
LI 


71 

3V 


Ot 


or 




71 


ot 




7C 

%>c 


in 


■JC 


pc 
cc 


>c 

^-t 


it 


cxi 


pn 

cU 




< ' 1 


CD 


jt, 

JJ 


OC 


SC. 


If 


71 

s? 


TP 
or 


9550— 


or 


7T 
M. 


Or 


3C 

CC 


lm: 


A 1 






JO 


t (( 

l o 


P0< 




on 


>ri 


:>n 
i i( 


TIT, 


pa. 




V 


~TT' 
OC 


'r 


tc 

.>r 


TP 


Of 


7-7 
Of 


7C 

Jo 


3J»>0— 


OJ 




2D 


2C 


2C 


2C 


pf 


2C 


9570- 


2C 


2C 


2C 


2C 


.^C 


2L 


2C 


24 


9578- 


3F 


7f 


:?e 


7f 


7£ 


3E 


3f 


3£ 


9580- 


3E 


?F 


*E 


7C 

-}t 


7TT 
>C 


7C 

3o 




CM) 
DO 


9588- 


20 


20 


20 


20 


25 


25 


25 


24 


9590- 


24 




24 


«6 


UJ 


i6 


?8 


36 


9598- 


37 


« 


Jf 




85 


08 


C3 


24 


9500- 


^4 


24 


2C 


2C 


20 


2D 


?n 


48 


9508- 




3F 


3F 


3F 


^ 


37 


37 


37 


95B0- 


<H 


36 


% 


.» 




m 


87 


00 


9568- 


4W 


40 


48 


48 


48 


48 


2E 


2C 


95C8- 


24 


3F 


?6 


88 


88 


87 


8? 


87 


95C8- 


87 


8? 


87 


87 


87 


87 


87 


87 



#1, make that change in line 24010. 
Should you have an Epson printer, 



4*800. : : 


















ft*88- 


09 


28 


85 


3C 


B9 


20 


85 


30 


8888- 




FF 


85 


3E 


MH 


» 


85 


3F 






B6 


85 


42 


09 


40 


85 


43 


8818- 


28 


ee 


03 


h9 


58 


80 


82 


18 


^828- 


85 


87 


«9 


48 


80 


03 


18 


85 


8828- 


88 


00 


82 


18 


C9 


Dl 


M0 


03 


9838- 


18 


E9 


43 


90 


26 


08 


27 


09 


0838- 


88 


99 


D8 


5F 


88 


D8 


F0 


09 


8840- 


m 


85 


3C 


Q9 


48 


85 


30 


09 


8848- 


FF 


85 


3E 


09 


5f 


85 


3F 


09 


8858- 


80 


85 


42 


09 


28 


85 


43 


20 


8858- 


8& 


83 


68 


18 


0D 


82 


18 


85 


8868- 


87 


69 


81 


80 


06 


18 


00 


83 


8868- 


18 


85 


88 


69 


1C 


80 


87 


18 


8878- 


05 


87 


CD 


86 


18 


05 


88 


ED 


8878- 


87 


18 


98 


83 


4C 


90 


88 


00 


8880- 


27 


09 


08 


91 


07 


88 


08 


FB 


8888- 


91 


87 


18 


05 


87 


69 


88 


85 


8898- 


07 


05 


88 


69 


04 


95 


88 


4C 


8898- 


78 


88 


18 


0D 


82 


16 


69 


88 


8800- 


80 


82 


18 


00 


83 


18 


69 


80 


8808- 


8D 


83 


18 


4C 


29 


88 


88 


08 




List 




3. SCROLL!! 





or any other requiring special dump- 
ing software, then once the screen 
contains what you want printed, hit 
control-reset and run your printer 
dump software. Don't worry about 
the screen vanishing when you hit re- 
set. It doesn't really vanish, as 
POKE - 16304,0 and POKE - 16297,0 will 
quickly prove. 

To save a SUPERFONT composi- 
tion, here is what you do. While in 
the input part of the program type 
control-S to start saving what you 
type. You can't save unless you hit 
control-S first. Then type until you're 
done or until you have a normal 
screenful of 126 characters — which- 
ever comes first. When you're ready 
to quit, hit control-F to indicate 
you're finished with your SUPER- 
FONT composition. 

There are seven styles of letters to 
choose from. Your selection is made 




MENTAL GYMNASTICS 

Go for the gold! Improve your vocabulary and sharpen your 
spelling skills with ENGLISH OLYMPICS a computer event for the 
whole family. 
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using shift-N, except for style #1, 
which is designated by shift-M. 
Escape is used for choosing color or 
scale. 

You can go back and fix an error 
with the color black and the back- 
space key. 

It's possible to create crude anima- 
tion as compositions are being repro- 
duced with the RETRIEVE pro- 
gram. Also, you can spell a word, go 
back and erase it, and then redo it in 
a new color — or change to a new 
word. This can make a rather nice 
display when re-created. 



"It's possible to create 
crude animation as 
compositions are 
being reproduced.'' 



If you want to retrieve a saved 
creation, control-R for RETRIEVE 
sends you to the program of the speci- 
fied name. The file names of saved 
SUPERFONT creations are set up to 
be the letters A through Y, so only 25 
compositions can be stored on one 
disk. However, a bit of program ad- 
justment will make more names pos- 
sible. There are two to nine sectors in 
each saved SUPERFONT text file. 

If you want a binary picture of any 
of your creations, just hit control-re- 
set while that picture is on the screen, 
and then type BSAVE (NAME), $2000, 
LS1FF8. To retrieve the picture BLOAD 
it, POKE - 16304,0 and POKE - 16297,0. 

Next time we'll look at one of busi- 
ness graphics' neatest tools, the pie 
chart. 

In closing, may I say I hope you 
will read this issue well. You'll find 
some news about an upcoming revo- 
lution in Apple graphics. I admit to 
being co-conspirator in this revolu- 
tion, and I'm very excited about it. ■ 



y PRINT ChRS < 4);"8L0P0CHPR" 

1 HI HEM: 36895 

S 0NERR GOTO 63995 

10 GOTO 5000 

1000 ON F GOTO 1001.1003,1904.1005.1010,1015,1020 

1001 TK = X.rTV = V:X = 0:V = &: FOR X = TX TO TX + < S + < S * < S - 1 >> >: FOR 

V = TV TO TV - (S * (S * <S - 1>>> STEP - 1: DRPH P PT X.V: NEXT : NEXT 
•X = TXsV = TV: RETuRn 

1003 DRAW P PT X.V: DRRH fl OT X ♦ 2,V - 2: RETURN 

1004 Z = 0: FOR G = 1 TO 5: DRPH P PT X + Z,V - Z:Z = Z ♦ 1: NEXT : RETURN 

1005 DRPH P PT X.V: DRRN P PT X ♦ 2.V - 2: DRRH P PT X ♦ 4.V - 4: RETURN 

1010 TX = X:TV = V:X = 0:V = 0: FOR X = TX TO TX + ( S ♦ 1 >: FOR V = TV TO 

TV - OS + 1) STEP - 1: DRPH P PT X,V: NEXT : NEXT :X = TX:V = TV: RETURN 

1015 DRPH P PT X.V: DRPH P PT X «■ l.V: DRPH P PT X ♦ 2.V: RETURN 

1020 DRPH P PT X.V: DRPH ft 91 X ♦ l.V - 1: DRRH P PT X + 2.V - 2: RETURN 

5000 POKE - 16303,0: POKE - 16296,0: HOME 

5300 CLEPR :S = 1: SCPLE= S:HH = 3: HC0L0R= HH: R0T= 64: X = 1:V = 20 

5325 CPLL 62450 

5350 HOME : UTPB 1: INPUT "HHICH DO VOU HRNT?< P-V ): " >RN$ 
5360 IF PSC (PN$,> < 65 OR PSC <PN$ > > 89 THEN 5350 
5375 NN = PSC (RN$> - 64 

5400 IF SS = THEN DIM TF*(26>: FOR HH = 1 TO 25:TF$<HH) = CHR* (64 + 

HH ) : NEXT :SS = 1 

5510 IF TV = THEN DIM P( 127 >.B( 127 >,SC( 127 ).CL< 127 ).SH( 127 ),F( 127 >: TV = 

1 

5520 0* = CHRf < 4> 

5525 FLPSH : HOME : TEXT : UTPB 1: PRINT "PLEPSE SHITCH NOH TO VDUR 0HN I 

NITIPL- IZED DISK UPON WHICH VOUR CREPTI0N IS STORED": NORHPL : 60SUB 

S3000 

5530 PRINT DS"OPEH";TF$<NN> 
5540 PRINT D$"RERD";TF$<NN> 
5545 INPUT NB 
5550 FOR QH = 1 TO NB 

5560 INPUT P<OH).B(QW),SC(OM).CL(QH).SHCQH),F<QH) 

5565 NEXT 

5570 PRINT D«"CL0SE" 

5575 HOME : UTPB 1: PRINT "HIT SPPCE BPR HHEN YOU'RE THR0U6H L00KIH 

G. ": FOR QQ = 1 TO 1500: NEXT 
5578 POKE - 16304.0: POKE - 16297.0 
5580 FOR QH = 1 TO NB 

5590 X = RXQH):V - B< QH ): SCRLE= SC(QW>: HC0L0R= CL(QH):P = SH<QH): R0T= 6 

4:F = F<0H- 

5591 GOSUB 7000 

5592 IF F > THEN GOSUB 1000: NEXT : GOTO 5600 
5595 DRPH P PT X,V: NEXT 

5600 KP = PEEK < - 16384): IF KP > 127 THEN POKE - 16368,0: GOTO 5708 

5650 GOTO 560O 

5700 POKE - 16303.0: POKE - 16298.8: HOHE 

5702 HOHE : UTPB 1: PRINT "DO VOU HPNT P PRINT-OUT OF IT'"': INPUT "<Y/H>: 
",P$ 

5705 IF PSC CP*) = 89 THEN GOSUB 24000 

5710 HOME : UTPB 1: INPUT "DO VOU HPNT TO SEE PNOTHERA V/N >: » ;RR$: IF RRS 
= "V" THEN 5730 

5720 FLPSH : UTPB 1: PRINT " PLEPSE SHITH BPCK TO THE PR06RRH DISK NOH": 

NORHPL : GOSUB 63000: GOTO 5990 
5730 GOTO 5300 

5990 POKE - 16304.0: POKE - 16297,0 

5997 NB = 0: F = £1 

5998 X = 1:V = 20: S = 1: SCRLE= S: R0T= 64: HC0L0R= 3 

5999 CPLL 62450: OX = 1:0V = 20: CR = 1:GT46 = 1: CPLL 1802 
6800 D* = CHR* (4) 

6010 PRINT D* " RUNSUPERF ONT " 

7000 IF BtQW) ( 8<QH - 1) THEN CPLL 62450 
7010 RETURN 

9000 HOME : TEXT : UTPB 1: PRINT "NOH TVPE THE CTRL CHRRRCTERS (OR HHflT- 
EUER) THPT DUMP THE HI -RES SCREEN ONTO VOUR PRINTER. IF VOUR PRINTE 
R DOESN'T DOTHIS THEN DON'T HIT CTRL P IN THIS PR06. ": PRINT 
9010 PRINT "MOKE SURE VOU HIT RETURH ONCE VOU RE DONE TVPING PLL THE C 

TRL CHPRRCTERS: u : PRINT :R9 = 
9015 PRINT "IF VOU'UE NO PRINTER HITH HI-RES CPPPCI-TV HIT RETURN HOW.": PRINT 

9020 P9 = PS + 1: GET CR*.P9;: IF PSC (CR*(P9)> < > 13 TmEN 9020 
9030 PRINT CHR$ ( 13 >: POKE - 16304.0: POKE - 16297.0: RETURN 
24000 D$ = CHR$ • 4 I 

24002 POKE - 16303.0: POKE - 16298,0 

24005 60SUB 9000: IF PSC ( CR$( 1 ) > = 13 RND P$ = "V" THEN Pf = "s POKE - 

16303,0: POKE - 16298.0: RETURN 
24010 PRINT D*"PR#1" 

24020 FOR H9 = 1 TO P9: PRINT CR$<H9);: NEXT 
24030 PRINT D*"PR#0-' 

24040 IF P* = "V- THEN P$ = - - : POKE - 16303,0: POKE - 16298,0: RETURN 

24999 GOTO 5000 
63000 PRINT : PRINT 
63010 PP = PEEK ( 
63020 GOTO 63010 

63995 OP = PEEK (222^: POKE 216,0 

63996 IF OP = 6 OR OP = 5 THEN PRINT : PRINT 
PGP IN'": PRINT : FOR HO = 1 TO 1900: NEXT 

63997 CR = 0: POKE 768-104: POKE 769.168: POKE 770,104: POKE 771.166: POKE 
772.223: POKE 773.154: POKE 774.72: POKE 775.152: POKE 776.72: POKE 7 

S3998 ONERR GOTO 63995: IF OP = 5 OR QP = 6 THEN 5350 
63999 6* = CHR$ (7): PRINT 6«: PRINT 6$: 60T0 5000 



"I HIT PNV KEV TO CONTINUE):": PRINT 

16384 >: IF PP > 127 THEN POKE - 16366.8: RETURN 



-SORRY NO SUCH FILE' TRY 
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